Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As _
              System.EventArgs) Handles btnCalc.Click
  Dim MyVariable As Integer    ' jaka zmienna

  MyVariable = 10

End Sub
